SCREEN 2,640,256,3,2
WINDOW 2,"Dr. Zoardes",(0,0)-(631,200),0,2
PALETTE 4,0.8,0.1,0.1: PALETTE 0,0,0,0: PALETTE 3,0.1,0.1,1: COLOR 4,2
PALETTE 2,0,0,0: PAINT (10,10),2
start:
RANDOMIZE TIMER
PRINT" 
PRINT" Dr.Zoardes
PRINT" **********
PRINT
PRINT" (1) Anleitung
PRINT" (2) Start
PRINT" (3) Ende
PRINT
INPUT" Ihre Wahl (1-3)";w
IF w=1 THEN GOTO w1:
IF w=3 THEN GOTO w3:
w2:
CLS
PRINT
PRINT" Ihnen werden jetzt per Zufallsgenerator mehrere Fragen gestellt."
PRINT" Bitte beantworten sie diese wahrheitsgemäß."
PRINT
INPUT" RETURN";r$
GOTO f1:
zufall:
PRINT
z=INT(RND*(76+1))
IF z=1 THEN PRINT" Wie sollte Dein Idealpartner aussehen?"
IF z=2 THEN PRINT" Was ist Deine Lieblingsfarbe?"
IF z=3 THEN PRINT" Was war Dein Lieblingsfach in der Schule?"
IF z=4 THEN PRINT" Welches Fach hast Du in der Schule am Meisten gehaßt?"
IF z=5 THEN PRINT" Warst Du ein guter Schüler?"
IF z=6 THEN PRINT" Magst Du Tiere?"
IF z=7 THEN PRINT" Magst Du Kinder?"
IF z=8 THEN PRINT" Magst Du den Umgang mit Computern?"
IF z=9 THEN PRINT" Welche Musik magst Du am liebsten und welche magst Du nicht?"
IF z=10 THEN PRINT" Wie siehst Du Dich politisch?"
IF z=11 THEN PRINT" Bist Du in festen Händen?"
IF z=12 THEN PRINT" Glaubst Du an die wahre Liebe?"
IF z=13 THEN PRINT" Was würdest Du unserem Bundeskanzler am Liebsten sagen?"
IF z=14 THEN PRINT" Wie stehst Du zu diesem Programm?"
IF z=15 THEN PRINT" Was ist Deine Lieblingsfernsehserie und welche magst Du nicht?"
IF z=16 THEN PRINT" Bist Du ehrlich?"
IF z=17 THEN PRINT" Deine Lieblingsschauspieler/-innen, wen magst Du nicht?"
IF z=18 THEN PRINT" Welche Menschen bewunderst Du, wen magst Du nicht?"
IF z=19 THEN PRINT" Wie stehst Du Religionen gegenüber?"
IF z=20 THEN PRINT" Was sagst Du zum Thema Abtreibung?"
IF z=21 THEN PRINT" Was hälst Du von der EG?"
IF z=22 THEN PRINT" Was hälst Du für Deine Stärken und Schwächen?"
IF z=23 THEN PRINT" Wobei wirst Du schwach?"
IF z=24 THEN PRINT" Wen Du nicht Du wärst, was oder wer wärst Du am Liebsten?"
IF z=25 THEN PRINT" Wem hast Du am Meisten weh getan?"
IF z=26 THEN PRINT" Wo würdest Du gerne leben?"
IF z=27 THEN PRINT" Hast Du schon mal an Selbstmord gedacht?"
IF z=28 THEN PRINT" Was tust Du um die Erde zu retten?"
IF z=29 THEN PRINT" Glaubst Du an Gott?"
IF z=30 THEN PRINT" Glaubst Du an Ausserirdische?"
IF z=31 THEN PRINT" Was hälst Du für die größte Erfindung der Menschheit?"
IF z=32 THEN PRINT" Dein Lieblingsfilm?"
IF z=33 THEN PRINT" Dein Lieblingessen?"
IF z=34 THEN PRINT" Kannst Du gut mit Geld umgehen?"
IF z=35 THEN PRINT" Deine Lieblingsjahreszeit, welche magst Du nicht?"
IF z=36 THEN PRINT" Beantwortest Du gerne diese Fragen?"
IF z=37 THEN PRINT" Hast Du schonmal übernatürliche Erfahrungen gehabt?"
IF z=38 THEN PRINT" Hälst Du Dich für beliebt?"
IF z=39 THEN PRINT" Wer glaubtst Du mag Dich nicht?"
IF z=40 THEN PRINT" Bist Du Leichtgläubig?"
IF z=41 THEN PRINT" Glaubst Du an ein Leben nach dem Tod?"
IF z=42 THEN PRINT" Wen oder was betrügst Du?"
IF z=43 THEN PRINT" Siehst Du viel TV?"
IF z=44 THEN PRINT" Deine Lieblingsklamotten, was magst Du nicht?"
IF z=45 THEN PRINT" Für wie wichtig hälst Du Kabelfernsehn?"
IF z=46 THEN PRINT" Kannst Du Dir ein Leben als Einsiedler vorstellen?"
IF z=47 THEN PRINT" Bist Du ein Familienmensch?"
IF z=48 THEN PRINT" Was sagt Dir ´Al Bundy´?"
IF z=49 THEN PRINT" Würdest Du Dich als Spiesser bezeichnen?"
IF z=50 THEN PRINT" Wovor hast Du Angst?"
IF z=51 THEN PRINT" Wobei hast Du am Meisten versagt?"
IF z=52 THEN PRINT" Treibst Du viel Sport?"
IF z=53 THEN PRINT" Was tust Du um bei anderen beliebt zu sein?"
IF z=54 THEN PRINT" Wie stehst Du dem technischen Fortschritt gegenüber?
IF z=55 THEN PRINT" Hattest Du als Kind viele Idole?"
IF z=56 THEN PRINT" Was belastet Dich zur Zeit?"
IF z=57 THEN PRINT" Welchem Laster oder welcher Sucht bist Du verfallen?"
IF z=58 THEN PRINT" Hälst Du Dich für ein Glückskind?"
IF z=59 THEN PRINT" Glaubst Du an Liebe auf dem ersten Blick?"
IF z=60 THEN PRINT" Wo machst Du am Liebsten Urlaub?"
IF z=0 THEN PRINT" Freilos!"
IF z=61 THEN PRINT" Nimm Stellung: Die Gesellschaft wird immer unmenschlicher."
IF z=62 THEN PRINT" Nimm Stellung: Der Mensch ist von Natur aus schlecht."
IF z=63 THEN PRINT" Nimm Stellung zum Thema Emanzipation
IF z=64 THEN PRINT" In welcher Zeit hättest Du gerne gelebt?"
IF z=65 THEN PRINT" Bist Du abergläubig?"
IF z=66 THEN PRINT" Bist Du ein guter Verlierer?"
IF z=67 THEN PRINT" Hast Du schonmal ein UFO gesehen?"
IF z=68 THEN PRINT" Könntest Du Dir ein Leben als Mönch vorstellen?"
IF z=69 THEN PRINT" Realisierst Du Deine Träume?"
IF z=70 THEN PRINT" Dein Lieblingswunsch?"
IF z=71 THEN PRINT" In welcher Filmrolle würdest Du dich gerne sehen?"
IF z=72 THEN PRINT" Was war dein größter Erfolg?"
IF z=73 THEN PRINT" Was war deine größte Niederlage?"
IF z=74 THEN PRINT" Wen würdest Du gerne mal näher kennenlernen?"
IF z=75 THEN PRINT" Welcher Gegenstand wärst Du am Liebsten?"
IF z=76 THEN PRINT" Welche Aängst hast Du?"
RETURN
f1:
CLS
PRINT" Frage 1:
GOSUB zufall:
a=z
PRINT:PRINT:INPUT" RETURN";r$
f2:
CLS
PRINT" Frage 2:
GOSUB zufall
b=z
IF b=a THEN GOTO f2:
PRINT:PRINT:INPUT" RETURN";r$
f3:
CLS
PRINT" Frage 3:
GOSUB zufall
c=z
IF c=a OR c=b THEN GOTO f3:
PRINT:PRINT:INPUT" RETURN";r$
f4:
CLS
PRINT" Frage 4:
GOSUB zufall:
d=z
IF d=a OR d=b OR d=3 THEN GOTO f4:
PRINT:PRINT:INPUT" RETURN";r$
f5:
CLS
PRINT" Frage 5:
GOSUB zufall:
e=z
IF e=a OR e=b OR e=c OR e=d THEN GOTO f5:
PRINT:PRINT:INPUT" RETURN";r$
charakter:
CLS
PRINT"
PRINT" Welche Charaktereigenschaften würdest Du Dir zuordnen?"
PRINT"
PRINT" unbeständig        freundlich          gerecht          ehrlich
PRINT" verträumt          ideenhaft           zaghaft          treu
PRINT" ängstlich          optimistisch        selbstbewußt     naiv
PRINT" geduldig           fleißig             realistisch      romantisch
PRINT" eitel              ausgeglichen        sensibel         querköpfig
PRINT
PRINT
INPUT" RETURN";r$
GOTO start:
w1:
CLS
PRINT
PRINT" Dr.Zoardes ist ein Psychoprogramm. Per Zufallsgenerator werden Dir
PRINT" fünf Fragen gestellt, die Du im Freundeskreis beantworten sollst.
PRINT" Danach fragt Dich der Doktor nach Deinen Charaktereigenschaften."
PRINT" Da manche Frage sehr intim sind, sollst Du dieses Programm nur mit
PRINT" wirklichen Freunden spielen."
PRINT
PRINT" Dr.Zoardes ist Public Domain.
PRINT" Autor: Patrick Henz, Martinstr.15, 52062 Aachen, Germany
PRINT" 24.4.1994"
PRINT
PRINT
INPUT" RETURN";r$
GOTO start:
w3:
CLS
END